home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs19.d81 / rnpaintf.prg (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  2KB  |  40 lines
  1. 0 REM- RUNPAINT FIX BY GULLIBLE
  2. 1 :
  3. 7 IFA=1THEN55
  4. 8 IFA=2THEN100
  5. 9 :
  6. 10 POKE53281,0:POKE53280,0
  7. 20 PRINT"[159][147]  RUNPAINT 2.0 BOOT/FIX - BY: GULLIBLE ";CHR$(142)
  8. 21 PRINT" THIS PROGRAM FIXES A C64 VERSION OF"
  9. 23 PRINT" RUN MAGAZINES RUNPAINT PROGRAM SO THAT"
  10. 25 PRINT" IT WILL WORK *PROPERLY* WITH A 1351"
  11. 27 PRINT" MOUSE AND YOU CAN USE THE MOUSE IN "
  12. 29 PRINT" PORT #1 INSTEAD OF PORT #2.  SO, ALL"
  13. 31 PRINT" YOU NEED TO DO IS HIT F1/F3 TO CHANGE"
  14. 32 PRINT" FROM JOYSTICK TO MOUSE AND BACK.  WORKS";
  15. 33 PRINT" EVEN DURING FREEHAND DRAWING MODE!"
  16. 34 PRINT" E-MAIL ME IF YOU WANT ANY OTHER CHANGES";
  17. 35 PRINT" AND I'LL SEE WHAT I CAN DO. :)  ALSO "
  18. 36 PRINT" SEND E-MAIL IF YOU HAVE ANY PROBLEMS,"
  19. 37 PRINT" COMMENTS OR SUGGESTIONS.  THANKS!"
  20. 38 PRINT" RUNPAINT IS (C) 1989 BY RUN MAGAZINE."
  21. 39 PRINT" INSERT DISK WITH RUNPAINT ON IT AND"
  22. 40 PRINT" PRESS ANY KEY."
  23. 45 GETA$:IFA$=""THEN45
  24. 47 PRINT" [159]LOADING... PLEASE WAIT..."
  25. 48 IFPEEK(65532)<>226THENPRINT" -SORRY!- 64 MODE ONLY!":STOP
  26. 50 A=1:LOAD"SYS.STUFF.H",8,1
  27. 55 A=2:LOAD"OB.RP",8,1
  28. 99 :
  29. 100 FORX=832TO880:READN:POKEX,N:NEXT
  30. 105 POKE655,64:POKE656,3:POKE5825,64
  31. 107 SYS4352 :REM STARTS RUNPAINT
  32. 110 DATA 165,197,201,4,240,7,201,5,240
  33. 115 DATA 21,76,72,235,169,0,141,20,23
  34. 120 DATA 169,242,141,72,21,169,21,141
  35. 125 DATA 73,21,76,72,235,169,1,141,20
  36. 130 DATA 23,169,184,141,72,21,169,22
  37. 135 DATA 141,73,21,76,72,235
  38. 199 :
  39. 200 --- THANKS TO SUPER SNAPSHOT V4 ---     - WHICH I USED IN DOING THIS FIX! -
  40.